home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / Eudora 1.3.1 / source / Bits / stampversion < prev    next >
Encoding:
Text File  |  1993-03-16  |  343 b   |  24 lines  |  [TEXT/????]
  1. perl -x "{0}" {"parameters"} ; exit
  2. #!/usr/local/bin/perl
  3. open (VERS,"<EudoraSrc/Version.r") || die;
  4. <VERS>;
  5. <VERS>;
  6. $_=<VERS>;
  7. close(VERS);
  8.  
  9. chop;
  10. s/\s*"//;
  11. s/".*//;
  12. s/\./_/g;
  13. $vers = $_;
  14.  
  15. $ci = "/usr/bin/ci -l -nv$vers -m$vers -f";
  16.  
  17. while (<EudoraSrc/RCS/*>)
  18. {
  19.   s=/RCS==;
  20.   s/,v//;
  21.   $cicmd = "$ci $_\n";
  22.   print $cicmd;
  23.   system($cicmd);
  24. }